home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / gui / textfield.lha / TextField / Source / prefs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-27  |  8.9 KB  |  306 lines
  1. /*
  2.  *  Source machine generated by GadToolsBox V2.0b
  3.  *  which is (c) Copyright 1991-1993 Jaba Development
  4.  *
  5.  *  GUI Designed by : Mark Thomas
  6.  */
  7.  
  8. #include <string.h>
  9.  
  10. #include <exec/types.h>
  11. #include <intuition/intuition.h>
  12. #include <intuition/classes.h>
  13. #include <intuition/classusr.h>
  14. #include <intuition/imageclass.h>
  15. #include <intuition/gadgetclass.h>
  16. #include <libraries/gadtools.h>
  17. #include <graphics/displayinfo.h>
  18. #include <graphics/gfxbase.h>
  19.  
  20. #include <proto/exec.h>
  21. #include <proto/intuition.h>
  22. #include <proto/gadtools.h>
  23. #include <proto/graphics.h>
  24. #include <proto/utility.h>
  25. #include <proto/diskfont.h>
  26.  
  27. #include "prefs.h"
  28.  
  29. struct Screen         *Scr = NULL;
  30. UBYTE                 *PubScreenName = NULL;
  31. APTR                   VisualInfo = NULL;
  32. struct Window         *TextFieldPrefsWnd = NULL;
  33. struct Gadget         *TextFieldPrefsGList = NULL;
  34. struct IntuiMessage    TextFieldPrefsMsg;
  35. struct Gadget         *TextFieldPrefsGadgets[19];
  36. UWORD                  TextFieldPrefsLeft = 0;
  37. UWORD                  TextFieldPrefsTop = 222;
  38. UWORD                  TextFieldPrefsWidth = 620;
  39. UWORD                  TextFieldPrefsHeight = 200;
  40. UBYTE                 *TextFieldPrefsWdt = (UBYTE *)"TextField Prefs (not particularly font sensitive)";
  41. struct TextAttr       *Font, Attr;
  42. UWORD                  FontX, FontY;
  43. UWORD                  OffX, OffY;
  44. struct TextFont       *TextFieldPrefsFont = NULL;
  45.  
  46. UBYTE *align_radio0Labels[] = {
  47.     (UBYTE *)"Left",
  48.     (UBYTE *)"Center",
  49.     (UBYTE *)"Right",
  50.     NULL };
  51.  
  52. UBYTE *blink_radio0Labels[] = {
  53.     (UBYTE *)"Off",
  54.     (UBYTE *)"Slow",
  55.     (UBYTE *)"Medium",
  56.     (UBYTE *)"Fast",
  57.     NULL };
  58.  
  59. UBYTE *border_radio0Labels[] = {
  60.     (UBYTE *)"None",
  61.     (UBYTE *)"Bevel",
  62.     (UBYTE *)"Double-bevel",
  63.     NULL };
  64.  
  65. UWORD TextFieldPrefsGTypes[] = {
  66.     CHECKBOX_KIND,
  67.     CHECKBOX_KIND,
  68.     CHECKBOX_KIND,
  69.     CHECKBOX_KIND,
  70.     CHECKBOX_KIND,
  71.     CHECKBOX_KIND,
  72.     MX_KIND,
  73.     CHECKBOX_KIND,
  74.     CHECKBOX_KIND,
  75.     SLIDER_KIND,
  76.     MX_KIND,
  77.     MX_KIND,
  78.     CHECKBOX_KIND,
  79.     CHECKBOX_KIND,
  80.     TEXT_KIND,
  81.     TEXT_KIND,
  82.     TEXT_KIND,
  83.     TEXT_KIND,
  84.     CHECKBOX_KIND
  85. };
  86.  
  87. struct NewGadget TextFieldPrefsNGad[] = {
  88.     9, 10, 26, 11, (UBYTE *)"Block Cursor", NULL, GD_block_cursor_check, PLACETEXT_RIGHT, NULL, (APTR)block_cursor_checkClicked,
  89.     9, 34, 26, 11, (UBYTE *)"Disable", NULL, GD_disable_check, PLACETEXT_RIGHT, NULL, (APTR)disable_checkClicked,
  90.     9, 59, 26, 11, (UBYTE *)"No Ghost", NULL, GD_no_ghost_check, PLACETEXT_RIGHT, NULL, (APTR)no_ghost_checkClicked,
  91.     9, 116, 26, 11, (UBYTE *)"Italic", NULL, GD_italic_check, PLACETEXT_RIGHT, NULL, (APTR)italic_checkClicked,
  92.     9, 141, 26, 11, (UBYTE *)"Underline", NULL, GD_underline_check, PLACETEXT_RIGHT, NULL, (APTR)underline_checkClicked,
  93.     9, 166, 26, 11, (UBYTE *)"Bold", NULL, GD_bold_check, PLACETEXT_RIGHT, NULL, (APTR)bold_checkClicked,
  94.     172, 116, 17, 9, NULL, NULL, GD_align_radio, PLACETEXT_RIGHT, NULL, (APTR)align_radioClicked,
  95.     172, 10, 26, 11, (UBYTE *)"Vertical Center", NULL, GD_vcenter_check, PLACETEXT_RIGHT, NULL, (APTR)vcenter_checkClicked,
  96.     172, 34, 26, 11, (UBYTE *)"Ruled Paper", NULL, GD_ruled_paper_check, PLACETEXT_RIGHT, NULL, (APTR)ruled_paper_checkClicked,
  97.     371, 160, 102, 19, (UBYTE *)"Spacing:", NULL, GD_spacing_slider, PLACETEXT_LEFT, NULL, (APTR)spacing_sliderClicked,
  98.     526, 33, 17, 9, NULL, NULL, GD_blink_radio, PLACETEXT_RIGHT, NULL, (APTR)blink_radioClicked,
  99.     371, 33, 17, 9, NULL, NULL, GD_border_radio, PLACETEXT_RIGHT, NULL, (APTR)border_radioClicked,
  100.     371, 96, 26, 11, (UBYTE *)"Inverted", NULL, GD_invert_check, PLACETEXT_RIGHT, NULL, (APTR)invert_checkClicked,
  101.     172, 59, 26, 11, (UBYTE *)"Partial", NULL, GD_partial_check, PLACETEXT_RIGHT, NULL, (APTR)partial_checkClicked,
  102.     371, 10, 88, 24, NULL, NULL, GD_border_text, 0, NULL, NULL,
  103.     9, 87, 92, 26, NULL, NULL, GD_style_text, 0, NULL, NULL,
  104.     172, 87, 112, 24, NULL, NULL, GD_align_text, 0, NULL, NULL,
  105.     526, 10, 97, 21, NULL, NULL, GD_cursor_text, 0, NULL, NULL,
  106.     371, 126, 26, 11, (UBYTE *)"Notepad Colors", NULL, GD_notepad_check, PLACETEXT_RIGHT, NULL, (APTR)notepad_checkClicked
  107. };
  108.  
  109. ULONG TextFieldPrefsGTags[] = {
  110.     (TAG_DONE),
  111.     (TAG_DONE),
  112.     (TAG_DONE),
  113.     (TAG_DONE),
  114.     (TAG_DONE),
  115.     (TAG_DONE),
  116.     (GTMX_Labels), (ULONG)&align_radio0Labels[ 0 ], (TAG_DONE),
  117.     (TAG_DONE),
  118.     (TAG_DONE),
  119.     (GTSL_Max), 50, (GTSL_MaxLevelLen), 11, (GTSL_LevelFormat), (ULONG)"%ld pixels", (GTSL_LevelPlace), (PLACETEXT_RIGHT), (PGA_Freedom), LORIENT_HORIZ, (GA_RelVerify), TRUE, (TAG_DONE),
  120.     (GTMX_Labels), (ULONG)&blink_radio0Labels[ 0 ], (TAG_DONE),
  121.     (GTMX_Labels), (ULONG)&border_radio0Labels[ 0 ], (TAG_DONE),
  122.     (TAG_DONE),
  123.     (TAG_DONE),
  124.     (GTTX_Text), (ULONG)"Border:", (GTTX_CopyText), TRUE, (TAG_DONE),
  125.     (GTTX_Text), (ULONG)"Style:", (TAG_DONE),
  126.     (GTTX_Text), (ULONG)"Align:", (TAG_DONE),
  127.     (GTTX_Text), (ULONG)"Cursor:", (TAG_DONE),
  128.     (TAG_DONE)
  129. };
  130.  
  131. static UWORD ComputeX( UWORD value )
  132. {
  133.     return(( UWORD )((( FontX * value ) + 5 ) / 10 ));
  134. }
  135.  
  136. static UWORD ComputeY( UWORD value )
  137. {
  138.     return(( UWORD )((( FontY * value ) + 9 ) / 18 ));
  139. }
  140.  
  141. static void ComputeFont( UWORD width, UWORD height )
  142. {
  143.     Forbid();
  144.     Font = &Attr;
  145.     Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
  146.     Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
  147.     FontX = GfxBase->DefaultFont->tf_XSize;
  148.     Permit();
  149.  
  150.     OffX = Scr->WBorLeft;
  151.     OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
  152.  
  153.     if ( width && height ) {
  154.         if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
  155.             goto UseTopaz;
  156.         if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
  157.             goto UseTopaz;
  158.     }
  159.     return;
  160.  
  161. UseTopaz:
  162.     Font->ta_Name = (STRPTR)"topaz.font";
  163.     FontX = FontY = Font->ta_YSize = 8;
  164. }
  165.  
  166. int SetupScreen( void )
  167. {
  168.     if ( ! ( Scr = LockPubScreen( PubScreenName )))
  169.         return( 1L );
  170.  
  171.     ComputeFont( 0, 0 );
  172.  
  173.     if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
  174.         return( 2L );
  175.  
  176.     return( 0L );
  177. }
  178.  
  179. void CloseDownScreen( void )
  180. {
  181.     if ( VisualInfo ) {
  182.         FreeVisualInfo( VisualInfo );
  183.         VisualInfo = NULL;
  184.     }
  185.  
  186.     if ( Scr        ) {
  187.         UnlockPubScreen( NULL, Scr );
  188.         Scr = NULL;
  189.     }
  190. }
  191.  
  192. int HandleTextFieldPrefsIDCMP( void )
  193. {
  194.     struct IntuiMessage    *m;
  195.     int            (*func)(void);
  196.     BOOL            running = TRUE;
  197.  
  198.     while( m = GT_GetIMsg( TextFieldPrefsWnd->UserPort )) {
  199.  
  200.         CopyMem(( char * )m, ( char * )&TextFieldPrefsMsg, (long)sizeof( struct IntuiMessage ));
  201.  
  202.         GT_ReplyIMsg( m );
  203.  
  204.         switch ( TextFieldPrefsMsg.Class ) {
  205.  
  206.             case    IDCMP_REFRESHWINDOW:
  207.                 GT_BeginRefresh( TextFieldPrefsWnd );
  208.                 GT_EndRefresh( TextFieldPrefsWnd, TRUE );
  209.                 break;
  210.  
  211.             case    IDCMP_GADGETUP:
  212.             case    IDCMP_GADGETDOWN:
  213.                 func = ( int (*)() )(( struct Gadget * )TextFieldPrefsMsg.IAddress )->UserData;
  214.                 running = func();
  215.                 break;
  216.  
  217.             case    IDCMP_MOUSEMOVE:
  218.                 if (TextFieldPrefsMsg.IAddress == TextFieldPrefsGadgets[GDX_spacing_slider]) {
  219.                     func = ( int (*)() )(( struct Gadget * )TextFieldPrefsMsg.IAddress )->UserData;
  220.                     running = func();
  221.                 }
  222.                 break;
  223.         }
  224.     }
  225.     return( running );
  226. }
  227.  
  228. int OpenTextFieldPrefsWindow( void )
  229. {
  230.     struct NewGadget    ng;
  231.     struct Gadget    *g;
  232.     UWORD        lc, tc;
  233.     UWORD        wleft = TextFieldPrefsLeft, wtop = TextFieldPrefsTop, ww, wh;
  234.  
  235.     ComputeFont( TextFieldPrefsWidth, TextFieldPrefsHeight );
  236.  
  237.     ww = ComputeX( TextFieldPrefsWidth );
  238.     wh = ComputeY( TextFieldPrefsHeight );
  239.  
  240.     if (( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width ) wleft = Scr->Width - ww;
  241.     if (( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height ) wtop = Scr->Height - wh;
  242.  
  243.     if ( ! ( TextFieldPrefsFont = OpenDiskFont( Font )))
  244.         return( 5L );
  245.  
  246.     if ( ! ( g = CreateContext( &TextFieldPrefsGList )))
  247.         return( 1L );
  248.  
  249.     for( lc = 0, tc = 0; lc < TextFieldPrefs_CNT; lc++ ) {
  250.  
  251.         CopyMem((char * )&TextFieldPrefsNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
  252.  
  253.         ng.ng_VisualInfo = VisualInfo;
  254.         ng.ng_TextAttr   = Font;
  255.         ng.ng_LeftEdge   = OffX + ComputeX( ng.ng_LeftEdge );
  256.         ng.ng_TopEdge    = OffY + ComputeY( ng.ng_TopEdge );
  257.         ng.ng_Width      = ComputeX( ng.ng_Width );
  258.         ng.ng_Height     = ComputeY( ng.ng_Height);
  259.  
  260.         TextFieldPrefsGadgets[ lc ] = g = CreateGadgetA((ULONG)TextFieldPrefsGTypes[ lc ], g, &ng, ( struct TagItem * )&TextFieldPrefsGTags[ tc ] );
  261.  
  262.         while( TextFieldPrefsGTags[ tc ] ) tc += 2;
  263.         tc++;
  264.  
  265.         if ( NOT g )
  266.             return( 2L );
  267.     }
  268.  
  269.     if ( ! ( TextFieldPrefsWnd = OpenWindowTags( NULL,
  270.                 WA_Left,    wleft,
  271.                 WA_Top,        wtop,
  272.                 WA_Width,    ww + OffX + Scr->WBorRight,
  273.                 WA_Height,    wh + OffY + Scr->WBorBottom,
  274.                 WA_IDCMP,    CHECKBOXIDCMP|MXIDCMP|SLIDERIDCMP|TEXTIDCMP|IDCMP_INTUITICKS|IDCMP_REFRESHWINDOW,
  275.                 WA_Flags,    WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE,
  276.                 WA_Gadgets,    TextFieldPrefsGList,
  277.                 WA_Title,    TextFieldPrefsWdt,
  278.                 WA_ScreenTitle,    "Window created with GadToolsBox",
  279.                 WA_PubScreen,    Scr,
  280.                 TAG_DONE )))
  281.     return( 4L );
  282.  
  283.     GT_RefreshWindow( TextFieldPrefsWnd, NULL );
  284.  
  285.     return( 0L );
  286. }
  287.  
  288. void CloseTextFieldPrefsWindow( void )
  289. {
  290.     if ( TextFieldPrefsWnd        ) {
  291.         CloseWindow( TextFieldPrefsWnd );
  292.         TextFieldPrefsWnd = NULL;
  293.     }
  294.  
  295.     if ( TextFieldPrefsGList      ) {
  296.         FreeGadgets( TextFieldPrefsGList );
  297.         TextFieldPrefsGList = NULL;
  298.     }
  299.  
  300.     if ( TextFieldPrefsFont ) {
  301.         CloseFont( TextFieldPrefsFont );
  302.         TextFieldPrefsFont = NULL;
  303.     }
  304. }
  305.  
  306.